home *** CD-ROM | disk | FTP | other *** search
/ The Amiga Classic Collection / The Amiga Classic Collection - Disc 1.iso / Education / ED39-MagicStorybook.DMS / ED39-MagicStorybook.adf / AUTO / UNEEDTHIS2 / UNEEDTHIS2.amosSourceCode < prev   
AMOS Source Code  |  1988-10-24  |  1KB  |  47 lines
  1. 'Magic Storybook start up program  16/11/92
  2. 'copyright Jayne and Richard Dunn 16th September 1991
  3. 'Magic Storybook TM is the copyright of Jayne and Richard Dunn 
  4. '
  5. Screen Open 0,640,256,2,Hires
  6. Break Off 
  7. Flash Off 
  8. Curs Off : Hide 
  9. Dim HUE(15)
  10. BN=14
  11. Gosub GT_BN_PALT
  12. Gosub FAD_TO_BACKG
  13. Flash Off 
  14. Wait Vbl 
  15. Unpack BN To 0
  16. Palette HUE,HUE,HUE,HUE,HUE,HUE,HUE,HUE,HUE,HUE,HUE,HUE,HUE,HUE,HUE,HUE
  17. Curs Off 
  18. Wait Vbl 
  19. 2010 Fade 4,HUE(0),HUE(1),HUE(2),HUE(3),HUE(4),HUE(5),HUE(6),HUE(7),HUE(8),HUE(9),HUE(10),HUE(11),HUE(12),HUE(13),HUE(14),HUE(15)
  20.      FAD_ALL[4]
  21. '
  22. Locate 15,23 : Pen 6 : Paper 0 : Print "PLEASE WAIT";
  23. Run "MAGIC_STORY/MSXX"
  24. End 
  25. '
  26. FAD_TO_BACKG:
  27.    Colour Back Colour(0)
  28.    HUE=Colour(0)
  29. View 
  30. Fade 5,HUE,HUE,HUE,HUE,HUE,HUE,HUE,HUE,HUE,HUE,HUE,HUE,HUE,HUE,HUE,HUE
  31. Wait 1
  32. Return 
  33. '    
  34. GT_BN_PALT:
  35. PTR=Start(BN)+26
  36. For I=0 To 15 : HUE(I)=Deek(PTR+I*2) : Next I
  37. HUE(0)=1678
  38. Return 
  39. '
  40. Procedure FAD_ALL[W]
  41.    Rol.l 4,W
  42.    For T=1 To W
  43.       Colour Back(Colour(0))
  44.       View 
  45.       Wait Vbl 
  46.    Next 
  47. End Proc